(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      4547,        126]
NotebookOptionsPosition[      4123,        110]
NotebookOutlinePosition[      4465,        125]
CellTagsIndexPosition[      4422,        122]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Argus", "[", 
   RowBox[{"m_", ",", "m0_", ",", "c_", ",", "p_"}], "]"}], ":=", 
  RowBox[{"m", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "-", 
      SuperscriptBox[
       RowBox[{"(", 
        FractionBox["m", "m0"], ")"}], "2"]}], ")"}], "p"], 
   RowBox[{"Exp", "[", 
    RowBox[{"c", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       SuperscriptBox[
        RowBox[{"(", 
         FractionBox["m", "m0"], ")"}], "2"]}], ")"}]}], "]"}]}]}], "\n", 
 RowBox[{"Manipulate", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"Argus", "[", 
      RowBox[{"m", ",", "1000", ",", "c", ",", "p"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"m", ",", "0", ",", "1000"}], "}"}]}], "]"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", ",", 
       RowBox[{"-", "7"}]}], "}"}], ",", 
     RowBox[{"-", "10"}], ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"p", ",", "2"}], "}"}], ",", 
     RowBox[{"-", "5"}], ",", "5"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.766358511754209*^9, 3.766358683296423*^9}, {
  3.766365664839301*^9, 3.7663656844991035`*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"999757ea-7747-4e26-9aed-e5335060b443"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`c$$ = -7, $CellContext`p$$ = 2, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`c$$], -7}, -10, 10}, {{
       Hold[$CellContext`p$$], 2}, -5, 5}}, Typeset`size$$ = {
    360., {110., 114.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`c$7106$$ = 
    0, $CellContext`p$7107$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`c$$ = -7, $CellContext`p$$ = 2}, 
      "ControllerVariables" :> {
        Hold[$CellContext`c$$, $CellContext`c$7106$$, 0], 
        Hold[$CellContext`p$$, $CellContext`p$7107$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`Argus[$CellContext`m, 
         1000, $CellContext`c$$, $CellContext`p$$], {$CellContext`m, 0, 
         1000}], "Specifications" :> {{{$CellContext`c$$, -7}, -10, 
         10}, {{$CellContext`p$$, 2}, -5, 5}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{411., {170., 176.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{
  3.766358772616188*^9, 3.7663588235091114`*^9, 3.766358903047152*^9, {
   3.7663589433507957`*^9, 3.7663589979939055`*^9}, {3.7663591420702567`*^9, 
   3.7663591431618414`*^9}, {3.766365660985964*^9, 3.766365685559213*^9}},
 CellLabel->"Out[6]=",ExpressionUUID->"65bd94f9-7012-4e7e-9b25-f4aca39d78ce"]
}, Open  ]]
},
WindowSize->{759, 833},
WindowMargins->{{Automatic, -7}, {-7, Automatic}},
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 1336, 40, 102, "Input",ExpressionUUID->"999757ea-7747-4e26-9aed-e5335060b443"],
Cell[1919, 64, 2188, 43, 365, "Output",ExpressionUUID->"65bd94f9-7012-4e7e-9b25-f4aca39d78ce"]
}, Open  ]]
}
]
*)

